inherited frmCadCheque: TfrmCadCheque
  Left = 407
  Top = 101
  Caption = 'Cadastro do controle de cheques'
  ClientHeight = 496
  ClientWidth = 509
  Font.Name = 'Verdana'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 447
    Width = 509
    inherited btnIncluir: TSpeedButton
      Left = 640
      Top = 12
      Visible = False
    end
    inherited btnExcluir: TSpeedButton
      Left = 758
      Top = 12
      Visible = False
    end
    inherited btnEditar: TSpeedButton
      Left = 699
      Top = 12
      Visible = False
    end
    inherited Bevel2: TBevel
      Left = 819
      Top = 4
      Visible = False
    end
    inherited btnGravar: TSpeedButton
      Left = 3
    end
    inherited btnCancelar: TSpeedButton
      Left = 65
    end
    inherited Bevel3: TBevel
      Left = 443
    end
    inherited btnFechar: TSpeedButton
      Left = 447
    end
    inherited Bevel1: TBevel
      Left = 533
      Visible = False
    end
  end
  inherited Panel4: TPanel
    Width = 509
    Height = 447
    object GroupBox1: TGroupBox
      Left = 2
      Top = 2
      Width = 505
      Height = 96
      Align = alTop
      Caption = 'Informa'#231#245'es do cheque'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 22
        Width = 88
        Height = 13
        Caption = 'Representante:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 40
        Width = 74
        Height = 13
        Caption = 'Nr. Cheque: '
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object DBText1: TDBText
        Left = 101
        Top = 22
        Width = 397
        Height = 17
        DataField = 'NOME'
        DataSource = DS_Padrao
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object DBText2: TDBText
        Left = 88
        Top = 40
        Width = 65
        Height = 17
        DataField = 'nr_cheque'
        DataSource = DS_Padrao
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 184
        Top = 40
        Width = 54
        Height = 13
        Caption = 'Valor R$:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object DBText5: TDBText
        Left = 248
        Top = 40
        Width = 65
        Height = 17
        DataField = 'sValor'
        DataSource = DS_Padrao
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 328
        Top = 40
        Width = 86
        Height = 13
        Caption = 'Compensa'#231#227'o:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object DBText6: TDBText
        Left = 424
        Top = 40
        Width = 65
        Height = 17
        DataField = 'dt_compensacao'
        DataSource = DS_Padrao
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 8
        Top = 58
        Width = 40
        Height = 13
        Caption = 'Banco:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 9
        Top = 76
        Width = 93
        Height = 13
        Caption = 'Titular Cheque: '
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object DBText3: TDBText
        Left = 60
        Top = 58
        Width = 413
        Height = 13
        DataField = 'DS_BANCO'
        DataSource = DS_Padrao
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object DBText4: TDBText
        Left = 110
        Top = 76
        Width = 363
        Height = 14
        DataField = 'DS_TITULAR_CHEQUE'
        DataSource = DS_Padrao
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
    end
    object GroupBox2: TGroupBox
      Left = 2
      Top = 98
      Width = 505
      Height = 145
      Align = alClient
      Caption = 'Faturas referente ao cheque'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 501
        Height = 128
        Align = alClient
        Ctl3D = False
        DataSource = DS_Padrao
        Options = [dgTitles, dgColLines, dgRowLines, dgRowSelect]
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clGreen
        TitleFont.Height = -11
        TitleFont.Name = 'Verdana'
        TitleFont.Style = [fsBold]
        Columns = <
          item
            Expanded = False
            FieldName = 'CD_PEDIDO'
            Title.Caption = 'Pedido'
            Width = 98
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PARCELA'
            Title.Caption = 'Parcela'
            Width = 52
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DT_VENCIMENTO'
            Title.Caption = 'Vencimento'
            Width = 93
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'sValorFatura'
            Title.Alignment = taRightJustify
            Title.Caption = 'Valor Fatura'
            Width = 118
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'sValorRecebido'
            Title.Alignment = taRightJustify
            Title.Caption = 'Valor Recebido'
            Width = 114
            Visible = True
          end>
      end
    end
    object GroupBox3: TGroupBox
      Left = 2
      Top = 243
      Width = 505
      Height = 77
      Align = alBottom
      Caption = 'Opera'#231#245'es'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object Label8: TLabel
        Left = 18
        Top = 52
        Width = 73
        Height = 13
        Caption = 'Observa'#231#227'o:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object rbCompensado: TRadioButton
        Left = 16
        Top = 24
        Width = 161
        Height = 17
        Caption = 'Cheque Compensado'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object rbDevolvido: TRadioButton
        Left = 188
        Top = 24
        Width = 144
        Height = 17
        Caption = 'Cheque Devolvido'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object rbPago: TRadioButton
        Left = 346
        Top = 24
        Width = 140
        Height = 17
        Caption = 'Cheque Pago'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object edtObs: TEdit
        Left = 96
        Top = 49
        Width = 400
        Height = 19
        Ctl3D = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 3
      end
    end
    object gbNovoCheque: TGroupBox
      Left = 2
      Top = 320
      Width = 505
      Height = 125
      Align = alBottom
      Caption = 'Novo Cheque'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      object Label24: TLabel
        Left = 11
        Top = 47
        Width = 43
        Height = 13
        Caption = 'Banco:'
      end
      object Label7: TLabel
        Left = 11
        Top = 73
        Width = 103
        Height = 13
        Caption = 'Titular Cheque: '
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 12
        Top = 96
        Width = 90
        Height = 13
        Caption = 'Valor Cheque:'
      end
      object Label18: TLabel
        Left = 192
        Top = 98
        Width = 128
        Height = 13
        Caption = 'Data Compensa'#231#227'o:'
      end
      object Label10: TLabel
        Left = 11
        Top = 21
        Width = 79
        Height = 13
        Caption = 'Nr. Cheque: '
      end
      object edtCodBanco: TEdit
        Left = 58
        Top = 45
        Width = 54
        Height = 19
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        OnKeyPress = edtCodBancoKeyPress
      end
      object dblBanco: TDBLookupComboBox
        Left = 120
        Top = 45
        Width = 366
        Height = 19
        Ctl3D = False
        KeyField = 'cd_banco'
        ListField = 'ds_banco'
        ListSource = DS_Banco
        ParentCtl3D = False
        TabOrder = 2
        OnClick = dblBancoClick
      end
      object edtTitularCheque: TEdit
        Left = 120
        Top = 70
        Width = 364
        Height = 19
        Ctl3D = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 3
      end
      object edtValorCheque: TEdit
        Left = 110
        Top = 94
        Width = 76
        Height = 19
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 4
      end
      object medtDtCompensacao: TMaskEdit
        Left = 323
        Top = 95
        Width = 97
        Height = 19
        Ctl3D = False
        EditMask = '!99/99/9999;1;_'
        MaxLength = 10
        ParentCtl3D = False
        TabOrder = 5
        Text = '  /  /    '
      end
      object edtNrCheque: TEdit
        Left = 96
        Top = 19
        Width = 106
        Height = 19
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
      end
    end
  end
  inherited QR_Padrao: TADOQuery
    CursorType = ctStatic
    OnCalcFields = QR_PadraoCalcFields
    SQL.Strings = (
      'SELECT R.NOME, '
      '                  P.CD_PEDIDO, '
      '                 CF.DS_TITULAR_CHEQUE,'
      '                  FP.CD_PAGAMENTO, '
      '                  FP.PARCELA, '
      '                  FP.DT_VENCIMENTO, '
      '                  FP.VALOR_FATURA, '
      '                  FP.VALOR_rECEBIDO, '
      '                         CF.CD_CHEQUE_FATURA, '
      '                  CF.NR_CHEQUE, '
      '                  CF.DT_COMPENSACAO, '
      '                  CF.VALOR, '
      '                  CF.STATUS, '
      '                  CF.DT_CONFIRMACAO, '
      '              CF.OBS,'
      '              B.DS_BANCO'
      '         FROM (((((TB_CHEQUE_FATURA CF'
      'INNER JOIN TB_FATURA_PARCELA FP'
      'ON CF.CD_PAGAMENTO = FP.CD_PAGAMENTO)'
      'INNER JOIN TB_FATURA F'
      'ON FP.CD_FATURA = F.CD_FATURA)'
      'INNER JOIN TB_PEDIDO P'
      'ON F.CD_PEDIDO = P.CD_PEDIDO)'
      'INNER JOIN TB_REPRESENTANTE R'
      'ON P.CD_REPRESENTANTE = R.CD_REPRESENTANTE)'
      'LEFT JOIN TB_BANCO B'
      'ON CF.CD_BANCO = B.CD_BANCO)')
    Left = 240
    Top = 176
    object QR_PadraosValor: TStringField
      FieldKind = fkCalculated
      FieldName = 'sValor'
      Calculated = True
    end
    object QR_PadraosValorFatura: TStringField
      FieldKind = fkCalculated
      FieldName = 'sValorFatura'
      Calculated = True
    end
    object QR_PadraosValorRecebido: TStringField
      FieldKind = fkCalculated
      FieldName = 'sValorRecebido'
      Calculated = True
    end
    object QR_PadraoNOME: TWideStringField
      FieldName = 'NOME'
      Size = 50
    end
    object QR_PadraoCD_PEDIDO: TWideStringField
      FieldName = 'CD_PEDIDO'
      Size = 50
    end
    object QR_PadraoCD_PAGAMENTO: TIntegerField
      FieldName = 'CD_PAGAMENTO'
    end
    object QR_PadraoPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object QR_PadraoDT_VENCIMENTO: TDateTimeField
      FieldName = 'DT_VENCIMENTO'
    end
    object QR_PadraoVALOR_FATURA: TBCDField
      FieldName = 'VALOR_FATURA'
      Precision = 19
    end
    object QR_PadraoVALOR_rECEBIDO: TBCDField
      FieldName = 'VALOR_rECEBIDO'
      Precision = 19
    end
    object QR_PadraoCD_CHEQUE_FATURA: TAutoIncField
      FieldName = 'CD_CHEQUE_FATURA'
      ReadOnly = True
    end
    object QR_PadraoNR_CHEQUE: TWideStringField
      FieldName = 'NR_CHEQUE'
      Size = 50
    end
    object QR_PadraoDT_COMPENSACAO: TDateTimeField
      FieldName = 'DT_COMPENSACAO'
    end
    object QR_PadraoVALOR: TBCDField
      FieldName = 'VALOR'
      Precision = 19
    end
    object QR_PadraoSTATUS: TWideStringField
      FieldName = 'STATUS'
      Size = 50
    end
    object QR_PadraoDT_CONFIRMACAO: TDateTimeField
      FieldName = 'DT_CONFIRMACAO'
    end
    object QR_PadraoOBS: TWideStringField
      FieldName = 'OBS'
      Size = 255
    end
    object QR_PadraoDS_BANCO: TWideStringField
      FieldName = 'DS_BANCO'
      Size = 255
    end
    object QR_PadraoDS_TITULAR_CHEQUE: TWideStringField
      FieldName = 'DS_TITULAR_CHEQUE'
      Size = 50
    end
  end
  inherited DS_Padrao: TDataSource
    Left = 312
    Top = 160
  end
  object QR_Temp: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    AfterOpen = QR_PadraoAfterOpen
    OnCalcFields = QR_PadraoCalcFields
    Parameters = <>
    Left = 168
    Top = 160
  end
  object QR_Banco: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    AfterOpen = QR_PadraoAfterOpen
    OnCalcFields = QR_PadraoCalcFields
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TB_BANCO')
    Left = 424
    Top = 192
  end
  object DS_Banco: TDataSource
    DataSet = QR_Banco
    Left = 424
    Top = 144
  end
  object QR_ChequeFatura: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    AfterOpen = QR_PadraoAfterOpen
    OnCalcFields = QR_PadraoCalcFields
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TB_CHEQUE_FATURA')
    Left = 360
    Top = 152
  end
end
